home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestVBAudioEditor2 / frmInfo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2003-04-02  |  6.8 KB  |  240 lines
  1. VERSION 5.00
  2. Begin VB.Form frmInfo 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Info List"
  5.    ClientHeight    =   4935
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6450
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   4935
  13.    ScaleWidth      =   6450
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.TextBox infoTrack 
  17.       Height          =   315
  18.       Left            =   1425
  19.       MaxLength       =   4
  20.       TabIndex        =   22
  21.       Top             =   2394
  22.       Width           =   1515
  23.    End
  24.    Begin VB.TextBox infoComposer 
  25.       Height          =   315
  26.       Left            =   1425
  27.       TabIndex        =   20
  28.       Top             =   2763
  29.       Width           =   4935
  30.    End
  31.    Begin VB.TextBox infoURL 
  32.       Height          =   315
  33.       Left            =   1425
  34.       TabIndex        =   18
  35.       Top             =   3870
  36.       Width           =   4935
  37.    End
  38.    Begin VB.TextBox infoEncodedBy 
  39.       Height          =   315
  40.       Left            =   1425
  41.       TabIndex        =   16
  42.       Top             =   3501
  43.       Width           =   4935
  44.    End
  45.    Begin VB.CommandButton cmdCancel 
  46.       Caption         =   "Cancel"
  47.       Height          =   345
  48.       Left            =   5160
  49.       TabIndex        =   15
  50.       Top             =   4410
  51.       Width           =   1215
  52.    End
  53.    Begin VB.CommandButton cmdOk 
  54.       Caption         =   "OK"
  55.       Height          =   345
  56.       Left            =   3750
  57.       TabIndex        =   14
  58.       Top             =   4410
  59.       Width           =   1215
  60.    End
  61.    Begin VB.TextBox infoArtist 
  62.       Height          =   315
  63.       Left            =   1425
  64.       TabIndex        =   6
  65.       Top             =   549
  66.       Width           =   4905
  67.    End
  68.    Begin VB.TextBox infoAlbum 
  69.       Height          =   315
  70.       Left            =   1425
  71.       TabIndex        =   5
  72.       Top             =   918
  73.       Width           =   4890
  74.    End
  75.    Begin VB.TextBox infoCopyright 
  76.       Height          =   315
  77.       Left            =   1425
  78.       TabIndex        =   4
  79.       Top             =   1656
  80.       Width           =   4935
  81.    End
  82.    Begin VB.TextBox infoYear 
  83.       Height          =   315
  84.       Left            =   1425
  85.       MaxLength       =   4
  86.       TabIndex        =   3
  87.       Top             =   2025
  88.       Width           =   1515
  89.    End
  90.    Begin VB.TextBox infoComment 
  91.       Height          =   315
  92.       Left            =   1425
  93.       TabIndex        =   2
  94.       Top             =   3132
  95.       Width           =   4935
  96.    End
  97.    Begin VB.TextBox infoTitle 
  98.       Height          =   315
  99.       Left            =   1425
  100.       TabIndex        =   1
  101.       Top             =   180
  102.       Width           =   4905
  103.    End
  104.    Begin VB.ComboBox infoGenre 
  105.       Height          =   315
  106.       Left            =   1425
  107.       Style           =   2  'Dropdown List
  108.       TabIndex        =   0
  109.       Top             =   1287
  110.       Width           =   4905
  111.    End
  112.    Begin VB.Label Label7 
  113.       Caption         =   "Track:"
  114.       Height          =   270
  115.       Left            =   180
  116.       TabIndex        =   23
  117.       Top             =   2439
  118.       Width           =   1080
  119.    End
  120.    Begin VB.Label Label6 
  121.       Caption         =   "Composer:"
  122.       Height          =   270
  123.       Left            =   180
  124.       TabIndex        =   21
  125.       Top             =   2808
  126.       Width           =   1080
  127.    End
  128.    Begin VB.Label Label4 
  129.       Caption         =   "URL:"
  130.       Height          =   270
  131.       Left            =   180
  132.       TabIndex        =   19
  133.       Top             =   3915
  134.       Width           =   1080
  135.    End
  136.    Begin VB.Label Label2 
  137.       Caption         =   "Encoded By:"
  138.       Height          =   270
  139.       Left            =   180
  140.       TabIndex        =   17
  141.       Top             =   3546
  142.       Width           =   1080
  143.    End
  144.    Begin VB.Label Label18 
  145.       Caption         =   "Year:"
  146.       Height          =   270
  147.       Left            =   180
  148.       TabIndex        =   13
  149.       Top             =   2070
  150.       Width           =   1080
  151.    End
  152.    Begin VB.Label Label17 
  153.       Caption         =   "Comment:"
  154.       Height          =   270
  155.       Left            =   180
  156.       TabIndex        =   12
  157.       Top             =   3177
  158.       Width           =   1080
  159.    End
  160.    Begin VB.Label Label11 
  161.       Caption         =   "Genre:"
  162.       Height          =   270
  163.       Left            =   180
  164.       TabIndex        =   11
  165.       Top             =   1332
  166.       Width           =   1080
  167.    End
  168.    Begin VB.Label Label5 
  169.       Caption         =   "Album:"
  170.       Height          =   270
  171.       Left            =   180
  172.       TabIndex        =   10
  173.       Top             =   963
  174.       Width           =   1080
  175.    End
  176.    Begin VB.Label Label3 
  177.       Caption         =   "Artists:"
  178.       Height          =   270
  179.       Left            =   180
  180.       TabIndex        =   9
  181.       Top             =   594
  182.       Width           =   1080
  183.    End
  184.    Begin VB.Label Label1 
  185.       Caption         =   "Copyright:"
  186.       Height          =   270
  187.       Left            =   180
  188.       TabIndex        =   8
  189.       Top             =   1701
  190.       Width           =   1080
  191.    End
  192.    Begin VB.Label Label8 
  193.       Caption         =   "Title:"
  194.       Height          =   270
  195.       Left            =   180
  196.       TabIndex        =   7
  197.       Top             =   225
  198.       Width           =   1080
  199.    End
  200. Attribute VB_Name = "frmInfo"
  201. Attribute VB_GlobalNameSpace = False
  202. Attribute VB_Creatable = False
  203. Attribute VB_PredeclaredId = True
  204. Attribute VB_Exposed = False
  205. Dim Info As AudioEditor2FileInfo
  206. Private Sub cmdCancel_Click()
  207.     Unload Me
  208. End Sub
  209. Private Sub cmdOK_Click()
  210.     Info.Title = infoTitle.Text
  211.     Info.Artist = infoArtist.Text
  212.     Info.Album = infoAlbum.Text
  213.     Info.Genre = infoGenre.ListIndex
  214.     Info.Copyright = infoCopyright.Text
  215.     Info.Comments = infoComment.Text
  216.     Info.Year = infoYear.Text
  217.     Info.Track = infoTrack.Text
  218.     Info.URL = infoURL.Text
  219.     Info.EncodedBy = infoEncodedBy.Text
  220.     Info.Composer = infoComposer.Text
  221.     Unload Me
  222. End Sub
  223. Private Sub Form_Load()
  224.     Set Info = frmDialog.AudioEditor1.FileInfo
  225.     For i = 0 To 147
  226.      infoGenre.AddItem (Info.GenreToString(i))
  227.     Next i
  228.     infoTitle.Text = Info.Title
  229.     infoArtist.Text = Info.Artist
  230.     infoAlbum.Text = Info.Album
  231.     infoGenre.ListIndex = Info.Genre
  232.     infoCopyright.Text = Info.Copyright
  233.     infoComment.Text = Info.Comments
  234.     infoYear.Text = Info.Year
  235.     infoTrack.Text = Info.Track
  236.     infoURL.Text = Info.URL
  237.     infoEncodedBy.Text = Info.EncodedBy
  238.     infoComposer.Text = Info.Composer
  239. End Sub
  240.